home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / disk lock (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  436b  |  11 lines
  1. 0 rem  protect/unprotect disk by chang-        ing format from 1541 to 2040
  2. 10 open15,8,15:print#15,"ui:":open2,8,2,"#"
  3. 20 print#15,"u1:";2;0;18;0:print#15,"b-p:"2,2:get#2,x$:rem find disk's format
  4. 30 print#15,"b-p:";2;2:ifx$<>"a"thenprint"unlocking disk":goto50
  5. 40 print"locking disk":print#2,chr$(1);:goto70
  6. 50 print#2,chr$(65);:print#15,"m-w"chr$(1)chr$(1)chr$(1)chr$(65)
  7. 60 forj=3to7:print#15,"m-w"chr$(2)chr$(j)chr$(1)chr$(65):next
  8. 70 print#15,"u2:"2;0;18;0:print#15,"i0"
  9. 80 input#15,en,em$,et,es:ifenthenprinten,em$,et,es
  10. 90 close2:print#15,"ui:":close15:end
  11.